home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / util / boot / GetMouseInput.lha / GetMouseInput / SampleScriptLOCAL < prev    next >
Encoding:
Text File  |  1999-12-12  |  372 b   |  19 lines
  1. ; Example startup-sequence file using GetMouseInput V1.3/V1.4 and local
  2. ; variable
  3.  
  4. GetMouseInput LOCAL
  5.  
  6. If $MouseInput EQ 1
  7.    Execute S:Startup1 ; Left mouse button pressed
  8. Else
  9.    If $MouseInput EQ 2
  10.       Execute S:Startup2 ; Right mouse button pressed
  11.    Else
  12.       Execute S:NormalStartup-Sequence ; No buttons pressed
  13.    EndIf
  14. EndIf
  15.  
  16. UnSet MouseInput
  17.  
  18. EndCLI >NIL:
  19.